#!/usr/bin/perl -w

my @files = ();

sub ia_choice() {
    my $choice;
    my $bad = 1;
    my $i = 0;

    while ($bad) {
	print "Entrez le nom du fichier d'IA souhaite :\n";
	$choice = <STDIN>;
	for ($i = 0; $i < ($#files + 1); $i++) {
	    if ($choice eq "$files[$i]\n"){
		$bad = 0;
	    }
	}
	if ($bad == 1){
	    print "Error: Merci de rentrez correctement le nom du fichier\n";
	}
    }
    $choice[length($choice)] = '\0';
    return ($choice);
}

sub list_ia_files() {
    my $dir = "./ia";

    opendir (my $rep_fd, $dir)
	or die "Can't open the directory: $dir\n";
    my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fd);
    closedir ($rep_fd);
 
    foreach my $nom (@file_rep) {
	if ( -f "$dir/$nom") {
	    push (@files, "$nom");
	}
    }

    for (my $i =0; $files[$i]; $i++){
	print "$files[$i]\n";
    } 
    return $dir . '/' . ia_choice();
}

sub chooseIAFile() {
    my $ia_f = list_ia_files();
    ($ia_f) = ($ia_f =~ /^(.+)\n$/);
    print "Le fichier d'ia choisi est $ia_f\n";
    return $ia_f;
}

$iapl = "isset";
